home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1997 / HAM Radio 1997.iso / vcls / date / adxup.int < prev    next >
Text File  |  1996-04-08  |  1KB  |  49 lines
  1. {$G+,X+,F+}
  2.  
  3. {Conditional defines that may affect this unit}
  4. {$I AWDEFINE.INC}
  5.  
  6. {*********************************************************}
  7. {*                    ADXUP.PAS 1.01                     *}
  8. {*        Copyright (c) TurboPower Software 1995         *}
  9. {*                 All rights reserved.                  *}
  10. {*********************************************************}
  11.  
  12. unit ADXUp;
  13.  
  14. interface
  15.  
  16. uses
  17.   SysUtils, WinTypes, WinProcs, Messages,
  18.   Classes, Graphics, Controls,
  19.   Forms, Dialogs, StdCtrls, ExtCtrls,
  20.   AdProtcl;
  21.  
  22. type
  23.   TUploadDialog = class(TForm)
  24.     Protocols: TRadioGroup;
  25.     Panel1: TPanel;
  26.     Label1: TLabel;
  27.     FileMask: TEdit;
  28.     OK: TButton;
  29.     Cancel: TButton;
  30.     procedure OKClick(Sender: TObject);
  31.     procedure CancelClick(Sender: TObject);
  32.   public
  33.     function GetProtocol : TProtocolType;
  34.     procedure SetProtocol(NewProt : TProtocolType);
  35.     function GetMask : String;
  36.     procedure SetMask(NewMask : String);
  37.  
  38.     property Protocol : TProtocolType
  39.       read GetProtocol write SetProtocol;
  40.     property Mask : String
  41.       read GetMask write SetMask;
  42.  
  43.     { Public declarations }
  44.   end;
  45.  
  46. var
  47.   UploadDialog: TUploadDialog;
  48.  
  49.